; Music of Mermaid Madness (1986) (Electric Dreams) (Fred Gray)
; Ripped by Megachur the 26/11/2006

	write "MERMAIDM.BIN"

music_date_rip	equ &1ab6
music_adr	equ &3fb4
first_theme	equ 1
last_theme	equ 4

	read "music_header_v1_0.asm"

;3fb4
.l3fb4
	nop
.l3fb5
	nop
.l3fb6
	ld a,(l3fb4)
;
.init_music
;
	or a
	jr z,l3fd3
	ld (l3fb5),a
	ld a,#00
	ld (l3fb4),a
	ld de,#0000
	ld (l4915),de
	ld (l4917),de
	ld (l4919),de
.l3fd3
	call l401b
	ld a,(l3fb5)
	or a
	jp m,l3ff2
	xor a
	ld (l4907),a
	ld (l4908),a
	ld (l4906),a
	ld a,#0f
	ld (l490f),a
	ld (l4910),a
	ld (l4911),a
.l3ff2
	ld a,(l3fb5)
	or #80
	ld (l3fb5),a
	and #7f
	add a
	ld l,a
	ld h,#00
	ld de,l4009
	add hl,de
	ld e,(hl)
	inc hl
	ld d,(hl)
	ex de,hl
	jp (hl)
.l4009
	dw l402a,l424c,l4278,l42b1
	dw l42ec,l4336,l4367,l43a0
	dw l43d1
.l401b
	ld a,(l3fb5)
	or a
	ret nz
	xor a
	ld (l4912),a
	ld (l4913),a
	ld (l4914),a
.l402a
	ret
.l402b
	add hl,bc
	ld a,(hl)
	or a
	ret z
	add a
	ld l,a
	ld h,#00
	cp #02
	jr z,l403c
	sla e
	ld d,#00
	add hl,de
.l403c
	ld de,l4840
	add hl,de
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld (l4919),de
	ld (l4922),de
	ld a,(l4911)
	ld (l490e),a
	ld a,#00
	ld (l491f),a
	ld (l490b),a
	ret
.l405a
	ld hl,(l4922)
	ld a,(l4906)
	and e
	jr nz,l4067
	srl h
	rr l
.l4067
	ld (l4919),hl
	ret
	add hl,bc
	ld a,(hl)
	or a
	ret z
	add a
	ld l,a
	ld h,#00
	cp #02
	jr z,l407c
	sla e
	ld d,#00
	add hl,de
.l407c
	ld de,l4840
	add hl,de
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld (l4915),de
	ld a,(l490f)
	ld (l490c),a
	ld a,#00
	ld (l491d),a
	ld (l4909),a
	ret
.l4096
	add hl,bc
	ld a,(hl)
	or a
	ret z
	call l40ac
	ld a,(l4910)
	ld (l490d),a
	ld a,#00
	ld (l491e),a
	ld (l490a),a
	ret
.l40ac
	add a
	ld l,a
	ld h,#00
	cp #02
	jr z,l40b9
	sla e
	ld d,#00
	add hl,de
.l40b9
	ld de,l4840
	add hl,de
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld (l4917),de
	ld (l4924),de
	ret
.l40c9
	ld hl,(l4924)
	ld a,(l4906)
	and e
	jr nz,l40d6
	srl h
	rr l
.l40d6
	ld (l4917),hl
	ret
.l40da
	ld (l40ff),a
	ld a,(l491d)
	and a
	jr z,l40f0
	ld a,(l4909)
	inc a
	cp e
	jp nz,l40ec
	xor a
.l40ec
	ld (l4909),a
	ret nz
.l40f0
	ld a,#01
	ld (l491d),a
	ld a,(l490c)
	and a
	ret z
	dec a
	ld (l490c),a
.l40ff equ $ + 1
	xor #00
	ld (l4912),a
	ret
.l4104
	ld (l4129),a
	ld a,(l491e)
	and a
	jr z,l411a
	ld a,(l490a)
	inc a
	cp e
	jp nz,l4116
	xor a
.l4116
	ld (l490a),a
	ret nz
.l411a
	ld a,#01
	ld (l491e),a
	ld a,(l490d)
	and a
	ret z
	dec a
	ld (l490d),a
.l4129 equ $ + 1
	xor #00
	ld (l4913),a
	ret
.l412e
	ld (l4153),a
	ld a,(l491f)
	and a
	jr z,l4144
	ld a,(l490b)
	inc a
	cp e
	jp nz,l4140
	xor a
.l4140
	ld (l490b),a
	ret nz
.l4144
	ld a,#01
	ld (l491f),a
	ld a,(l490e)
	and a
	ret z
	dec a
	ld (l490e),a
.l4153 equ $ + 1
	xor #00
	ld (l4914),a
	ret
.l4158
	ld bc,(l4907)
	ld a,(l4906)
	inc a
	cp e
	jp nz,l4166
	ld a,#00
.l4166
	ld (l4906),a
	ret
.l416a
	ld hl,(l4907)
	inc hl
	ld (l4907),hl
	and a
	sbc hl,de
	ret
.l4175
	call l41c4
	ld hl,(l4215)
	dec hl
	ld (l4215),hl
	ld a,h
	or l
	jr nz,l4189
	ld a,(l4214)
	ld (l421b),a
.l4189
	ld a,(l421a)
	and #0f
	ld e,a
	ld a,(l421a)
	srl a
	srl a
	srl a
	srl a
	call l40da
	ld hl,l4219
	ld a,(l4213)
	add (hl)
	ld (l4213),a
	ld (l49d0),a
	srl a
	srl a
	srl a
	srl a
	ld (l4916),a
	ld a,(l4213)
	sla a
	sla a
	sla a
	sla a
	ld (l4915),a
	ret
.l41c4
	ld a,(l421b)
	and a
	ret z
	dec a
	sla a
	sla a
	sla a
	ld c,a
	ld b,#00
	ld hl,l421c
	add hl,bc
	ld a,(hl)
	ld (l4213),a
	inc hl
	ld a,(hl)
	ld (l49cf),a
	inc hl
	ld a,(hl)
	ld (l421a),a
	inc hl
	ld a,(hl)
	ld (l4219),a
	inc hl
	ld a,(hl)
	ld (l4216),a
	inc hl
	ld a,(hl)
	ld (l4214),a
	inc hl
	ld a,(hl)
	ld (l4215),a
	inc hl
	ld a,(hl)
	ld (l4216),a
	ld a,(l490f)
	ld (l490c),a
	ld a,#00
	ld (l491d),a
	ld (l4909),a
	ld (l421b),a
	ld (l4915),a
	ret
.l421a equ $ + 7
.l4219 equ $ + 6
.l4216 equ $ + 3
.l4215 equ $ + 2
.l4214 equ $ + 1
.l4213
	db #00,#00,#00,#00,#00,#00,#00,#00
.l421c equ $ + 1
.l421b
	db #00,#00,#39,#00,#00,#00,#00,#00
	db #01,#14,#31,#01,#00,#00,#03,#0a
	db #00,#10,#31,#01,#00,#00,#02,#0a
	db #00,#0b,#31,#01,#00,#00,#01,#01
	db #00,#00,#30,#0f,#21,#00,#01,#bc
	db #01,#dc,#31,#0f,#fe,#00,#01,#0c
	db #00
.l424c
	call l4978
	ld e,#04
	call l4158
	ret nz
	ld e,#02
	call l405a
	ld hl,l440c
	ld e,#18
	call l402b
	ld hl,l440c
	ld e,#24
	call l4096
	ld de,#0030
	call l416a
	jr nz,l4277
	ld a,#00
	ld (l3fb5),a
.l4277
	ret
.l4278
	ld e,#02
	call l40c9
	ld e,#04
	call l405a
	call l4935
	ld e,#06
	call l4158
	ret nz
	ld a,c
	and #3f
	ld c,a
	ld hl,l443c
	ld e,#24
	call l4096
	ld a,c
	and #03
	ld c,a
	ld hl,l447c
	ld e,#18
	call l402b
	ld de,#0080
	call l416a
	jr nz,l42b0
	ld a,#03
	ld (l3fb5),a
.l42b0
	ret
.l42b1
	ld e,#02
	call l405a
	ld e,#06
	call l40c9
	call l4926
	ld e,#06
	call l4158
	ret nz
	ld a,c
	and #7f
	ld c,a
	ld hl,l4480
	ld e,#24
	call l4096
	ld a,c
	srl a
	jr c,l42de
	ld c,a
	ld hl,l4500
	ld e,#18
	call l402b
.l42de
	ld de,#0100
	call l416a
	jr nz,l42eb
	ld a,#02
	ld (l3fb5),a
.l42eb
	ret
.l42ec
	ld e,#00
	call l40c9
	ld e,#03
	call l405a
	call l4935
	ld e,#04
	call l4158
	ret nz
	ld bc,(l4907)
.l4304 equ $ + 1
	ld hl,l45c0
	ld a,(l4335)
	ld e,a
	call l402b
	ld a,c
	srl a
	jr c,l431f
	ld c,a
	ld hl,l4540
	ld a,(l4335)
	add #0c
	ld e,a
	call l4096
.l431f
	ld de,#0100
	call l416a
	jr nz,l4334
	ld a,(l4335)
	xor #03
	ld (l4335),a
	ld a,#04
	ld (l3fb5),a
.l4334
	ret
.l4336 equ $ + 1
.l4335
	jr l4304
	ld a,b
	ld c,c
	ld e,#02
	call l405a
	ld e,#04
	call l40c9
	ld e,#08
	call l4158
	ret nz
	ld hl,l46c0
	ld e,#18
	call l4096
	ld hl,l46c0
	ld e,#24
	call l402b
	ld de,#001c
	call l416a
	jr nz,l4366
	ld a,#00
	ld (l3fb5),a
.l4366
	ret
.l4367
	ld e,#03
	call l405a
	ld e,#04
	call l40c9
	call l4926
	ld e,#05
	call l4158
	ret nz
	ld hl,l46e0
	ld e,#30
	call l4096
	ld hl,l4700
	ld e,#18
	call l402b
	ld de,#0020
	call l416a
	jr nz,l439f
.l4393 equ $ + 1
	ld a,#07
	ld (l3fb5),a
	ld a,(l4393)
	xor #0f
	ld (l4393),a
.l439f
	ret
.l43a0
	ld e,#02
	call l405a
	ld e,#02
	call l40c9
	call l4953
	ld e,#0a
	call l4158
	ret nz
	ld hl,l4720
	ld e,#30
	call l4096
	ld hl,l4750
	ld e,#18
	call l402b
	ld de,#0030
	call l416a
	jr nz,l43d0
	ld a,#06
	ld (l3fb5),a
.l43d0
	ret
.l43d1
	call l4953
	ld a,(l4907)
	cp #30
	jr c,l43de
	call l4926
.l43de
	ld e,#02
	call l405a
	ld e,#03
	call l40c9
	ld e,#0a
	call l4158
	ret nz
	ld hl,l47b0
	ld e,#30
	call l4096
	ld hl,l4750
	ld e,#18
	call l402b
	ld de,#0060
	call l416a
	jr nz,l440b
	ld a,#06
	ld (l3fb5),a
.l440b
	ret
.l440c
	db #00,#1d,#20,#25,#00,#00,#00,#00
	db #00,#24,#00,#00,#22,#00,#00,#20
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #20,#1f,#1e,#22,#00,#00,#00,#00
	db #00,#20,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l443c
	db #11,#00,#14,#00,#14,#00,#14,#00
	db #14,#00,#13,#14,#16,#00,#14,#00
	db #13,#00,#16,#00,#16,#00,#16,#00
	db #16,#00,#14,#16,#18,#00,#16,#00
	db #14,#00,#18,#00,#1d,#00,#1c,#00
	db #18,#00,#00,#00,#18,#16,#14,#13
	db #11,#00,#18,#00,#1d,#00,#1c,#00
	db #18,#00,#00,#00,#18,#16,#14,#13
.l4480 equ $ + 4
.l447c
	db #11,#00,#18,#00,#11,#00,#18,#00
	db #18,#00,#18,#00,#18,#00,#18,#00
	db #1d,#1b,#19,#18,#16,#00,#18,#00
	db #00,#00,#19,#00,#00,#00,#15,#00
	db #00,#00,#16,#00,#00,#00,#16,#00
	db #16,#00,#16,#00,#16,#00,#16,#00
	db #1b,#19,#18,#16,#14,#00,#1b,#00
	db #1f,#1d,#1b,#19,#18,#00,#1f,#00
	db #20,#1f,#1d,#1b,#1b,#00,#24,#00
	db #24,#00,#24,#00,#24,#00,#24,#00
	db #29,#27,#25,#24,#22,#00,#24,#00
	db #00,#00,#25,#00,#00,#00,#21,#00
	db #00,#00,#22,#00,#00,#00,#22,#00
	db #22,#00,#22,#00,#22,#00,#22,#00
	db #27,#25,#24,#22,#20,#00,#1b,#00
	db #18,#1a,#1b,#1c,#1d,#00,#18,#00
.l4500 equ $ + 4
	db #14,#15,#16,#17,#11,#15,#11,#18
	db #11,#1b,#11,#15,#11,#16,#11,#19
	db #11,#1d,#11,#19,#16,#13,#0f,#16
	db #0f,#19,#0f,#16,#0f,#14,#0d,#11
	db #0f,#16,#13,#19,#14,#18,#12,#15
	db #0f,#12,#0c,#0f,#0a,#11,#0f,#12
	db #11,#16,#15,#11,#16,#19,#14,#19
	db #13,#19,#0f,#19,#14,#18,#13,#18
.l4540 equ $ + 4
	db #11,#18,#0a,#0d,#00,#00,#20,#1d
	db #20,#00,#1f,#00,#1c,#00,#1d,#00
	db #1b,#1b,#1b,#00,#1a,#1a,#1a,#00
	db #19,#19,#19,#00,#18,#1d,#19,#1d
	db #18,#00,#00,#00,#00,#00,#20,#1d
	db #20,#00,#1f,#00,#1c,#00,#1d,#00
	db #20,#20,#20,#00,#1f,#1f,#1f,#00
	db #1d,#1d,#1d,#00,#1c,#1f,#1d,#1f
	db #1c,#00,#00,#00,#00,#00,#20,#1d
	db #20,#00,#1f,#00,#1c,#00,#1d,#00
	db #1b,#1b,#1b,#00,#1a,#1a,#1a,#00
	db #19,#19,#19,#00,#18,#1d,#19,#1d
	db #18,#00,#00,#00,#00,#00,#1d,#1a
	db #1d,#00,#1c,#00,#00,#00,#1b,#18
	db #1b,#00,#18,#00,#00,#00,#19,#16
	db #19,#00,#18,#00,#00,#00,#18,#00
.l45c0 equ $ + 4
	db #11,#00,#00,#00,#11,#00,#00,#00
	db #14,#00,#00,#00,#11,#00,#00,#00
	db #16,#00,#00,#00,#11,#00,#00,#00
	db #17,#00,#00,#00,#11,#00,#00,#00
	db #18,#00,#00,#00,#11,#00,#00,#00
	db #17,#00,#00,#00,#11,#00,#00,#00
	db #16,#00,#00,#00,#11,#00,#00,#00
	db #1d,#00,#00,#00,#11,#00,#00,#00
	db #1d,#1b,#19,#18,#17,#00,#00,#00
	db #1d,#00,#00,#00,#16,#00,#00,#00
	db #1c,#00,#00,#00,#14,#00,#00,#00
	db #1d,#00,#00,#00,#13,#00,#00,#00
	db #1d,#00,#00,#00,#13,#00,#00,#00
	db #1b,#00,#00,#00,#13,#00,#00,#00
	db #1a,#00,#00,#00,#18,#00,#00,#00
	db #19,#00,#00,#00,#18,#00,#00,#00
	db #18,#16,#14,#13,#11,#00,#00,#00
	db #14,#00,#00,#00,#11,#00,#00,#00
	db #16,#00,#00,#00,#11,#00,#00,#00
	db #17,#00,#00,#00,#11,#00,#00,#00
	db #18,#00,#00,#00,#11,#00,#00,#00
	db #17,#00,#00,#00,#11,#00,#00,#00
	db #16,#00,#00,#00,#11,#00,#00,#00
	db #1d,#00,#00,#00,#11,#00,#00,#00
	db #20,#1f,#1d,#1b,#1a,#00,#00,#00
	db #13,#00,#00,#00,#00,#00,#00,#00
	db #1f,#1d,#1c,#1a,#18,#00,#00,#00
	db #11,#00,#00,#00,#00,#00,#00,#00
	db #1d,#1b,#1a,#18,#16,#00,#00,#00
	db #0f,#00,#00,#00,#00,#00,#00,#00
	db #1b,#19,#18,#16,#14,#00,#00,#00
	db #13,#00,#00,#00,#11,#00,#00,#00
.l46c0 equ $ + 4
	db #00,#00,#00,#00,#18,#00,#00,#00
	db #19,#00,#00,#00,#00,#00,#11,#00
	db #12,#00,#14,#00,#0f,#00,#00,#0d
	db #12,#00,#00,#00,#00,#00,#00,#00
.l46e0 equ $ + 4
	db #00,#00,#00,#00,#00,#19,#00,#18
	db #00,#19,#00,#18,#00,#19,#00,#00
	db #00,#18,#00,#00,#00,#1b,#00,#00
	db #00,#19,#1d,#20,#25,#29,#00,#00
.l4700 equ $ + 4
	db #00,#00,#00,#00,#00,#0d,#00,#14
	db #00,#0d,#00,#14,#00,#0d,#00,#00
	db #00,#14,#00,#00,#00,#08,#00,#00
	db #00,#0d,#00,#00,#00,#0d,#00,#14
.l4720 equ $ + 4
	db #00,#0d,#00,#14,#1e,#1d,#1e,#1d
	db #1b,#19,#14,#11,#19,#00,#00,#00
	db #18,#00,#00,#00,#22,#16,#16,#16
	db #16,#00,#14,#00,#22,#16,#16,#16
	db #16,#00,#14,#00,#25,#19,#19,#19
	db #19,#18,#1b,#19,#19,#18,#16,#14
.l4750 equ $ + 4
	db #1e,#00,#00,#00,#0d,#11,#12,#13
	db #14,#13,#12,#11,#12,#14,#15,#16
	db #14,#16,#17,#18,#0f,#11,#12,#13
	db #14,#08,#0d,#0e,#0f,#11,#12,#13
	db #14,#08,#0d,#0e,#0f,#10,#11,#00
	db #12,#13,#14,#00,#14,#14,#18,#14
	db #19,#14,#1a,#1b,#22,#20,#22,#20
	db #22,#20,#22,#20,#22,#20,#22,#20
	db #22,#20,#22,#20,#22,#20,#22,#20
	db #22,#20,#22,#20,#22,#20,#22,#20
	db #22,#20,#22,#20,#22,#20,#16,#14
	db #16,#14,#16,#14,#16,#14,#16,#14
.l47b0 equ $ + 4
	db #16,#14,#16,#18,#1e,#1d,#1e,#1d
	db #1b,#19,#14,#11,#19,#00,#00,#00
	db #18,#00,#00,#00,#22,#16,#16,#16
	db #16,#00,#14,#00,#22,#16,#16,#16
	db #16,#00,#14,#00,#29,#1d,#1d,#1d
	db #1d,#1b,#1d,#1b,#20,#1f,#20,#1f
	db #22,#20,#22,#20,#1e,#00,#00,#00
	db #00,#00,#1b,#00,#17,#00,#18,#00
	db #1d,#00,#00,#1d,#1b,#00,#00,#00
	db #00,#00,#18,#00,#14,#00,#16,#00
	db #19,#00,#00,#18,#18,#00,#00,#00
	db #00,#00,#14,#00,#0f,#00,#0c,#00
	db #08,#00,#00,#00,#22,#20,#22,#20
	db #22,#20,#22,#20,#22,#20,#22,#20
	db #22,#20,#22,#20,#22,#20,#22,#20
	db #22,#20,#22,#20,#22,#20,#22,#20
	db #22,#20,#22,#20,#22,#20,#16,#14
	db #16,#14,#16,#14,#16,#14,#16,#14
.l4840 equ $ + 4
	db #16,#14,#16,#18,#00,#00,#00,#00
	db #00,#10
	dw #0f1a,#0e41,#0d74,#0cb3
	dw #0bfd,#0b50,#0aae,#0a14
	dw #0983,#08fb,#087a,#0800
	dw #078d,#0721,#06ba,#0659
	dw #05fe,#05a8,#0557,#050a
	dw #04c2,#047d,#043d,#0400
	dw #03c7,#0390,#035d,#032d
	dw #02ff,#02d4,#02ab,#0285
	dw #0261,#023f,#021e,#0200
	dw #01e3,#01c8,#01af,#0196
	dw #0180,#016a,#0156,#0143
	dw #0130,#011f,#010f,#0100
	dw #00f2,#00e4,#00d7,#00cb
	dw #00c0,#00b5,#00ab,#00a1
	dw #0098,#0090,#0088,#0080
	dw #0079,#0071,#006c,#0066
	dw #0060,#005b,#0055,#0051
	dw #004c,#0048,#0044,#0040
	dw #003c,#0039,#0036,#0033
	dw #0030,#002d,#002b,#0028
	dw #0026,#0024,#0022,#0020
	dw #001e,#001c,#001b,#0019
	dw #0018,#0017,#0015,#0014
	dw #0013,#0012,#0011,#0010
.l490d equ $ + 7
.l490c equ $ + 6
.l490b equ $ + 5
.l490a equ $ + 4
.l4909 equ $ + 3
.l4908 equ $ + 2
.l4907 equ $ + 1
.l4906
	db #00,#00,#00,#00,#00,#00,#00,#00
.l4915 equ $ + 7
.l4914 equ $ + 6
.l4913 equ $ + 5
.l4912 equ $ + 4
.l4911 equ $ + 3
.l4910 equ $ + 2
.l490f equ $ + 1
.l490e
	db #00,#0f,#08,#08,#00,#00,#00,#00
.l491d equ $ + 7
.l4919 equ $ + 3
.l4917 equ $ + 1
.l4916
	db #00,#00,#00,#00,#00,#00,#00,#00
.l4924 equ $ + 6
.l4922 equ $ + 4
.l491f equ $ + 1
.l491e
	db #00,#00,#00,#00,#00,#00,#00,#00
.l4926
	ld a,#00
	ld e,#02
	call l4104
	ld a,#00
	ld e,#01
	call l412e
	ret
.l4935
	ld a,#00
	ld e,#01
	call l4104
	ld a,#00
	ld e,#02
	call l412e
	ret
	ld a,#07
	ld e,#0c
	call l4104
	ld a,#07
	ld e,#0c
	call l412e
	ret
.l4953
	ld a,#04
	ld e,#01
	call l4104
	ld a,#04
	ld e,#01
	call l4104
	ld a,#00
	ld e,#01
	call l412e
	ret
	ld a,#07
	ld e,#0c
	call l4104
	ld a,#07
	ld e,#0c
	call l412e
	ret
.l4978
	ld a,#00
	ld e,#04
	call l4104
	ld a,#00
	ld e,#04
	call l412e
	ret
.l4987
	ld hl,(l4915)
	ld a,#00
	call l49d1
	ld hl,(l4917)
	ld a,#02
	call l49d1
	ld hl,(l4919)
	ld a,#04
	call l49d1
	ld a,(l49d0)
	ld c,a
	ld a,#06
	call l49d9
	ld a,(l4912)
	ld c,a
	ld a,#08
	call l49d9
	ld a,(l4913)
	ld c,a
	ld a,#09
	call l49d9
	ld a,(l4914)
	ld c,a
	ld a,#0a
	call l49d9
	ld a,(l49cf)
	and #3f
	ld c,a
	ld a,#07
	call l49d9
	ret
.l49d0 equ $ + 1
.l49cf
	jr c,l49d1
.l49d1
	ld c,l
	ld e,a
	call l49d9
	ld a,e
	inc a
	ld c,h
.l49d9
	ld b,#f4
	out (c),a
	ld b,#f6
	in a,(c)
	or #c0
	out (c),a
	and #3f
	out (c),a
	ld b,#f4
	out (c),c
	ld b,#f6
	ld c,a
	or #80
	out (c),a
	out (c),c
	ret

;
.play_music	; added by Megachur
;
	call l4175
	call l3fb6
	jp l4987

;org #1a55
;ld a,#01
;ld (#3fb4),a	; theme set !
;org #19dc
;ld a,#06
;ld (#3fb4),a
;org #3fa4
;call #4175	; play
;call #3fb6	; init
;call &4987	; play (ay)

;org #3fa4
;call l4175
;call l3fb6
;call l4987
;reti

;
.game_name
	db "Mermaid Madness",0
.game_year
	db "1986",0
.game_publisher
	db "Electric Dreams",0
.music_author
	db "Fred Gray",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
